home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Network Supervisor's Toolkit
/
Network Supervisor's Toolkit.iso
/
tools
/
nova_prg
/
read.prg
< prev
next >
Wrap
Text File
|
1996-07-10
|
2KB
|
91 lines
SET TALK OFF
SET SAFETY OFF
*
* Read Forum Listing into Foxpro/LAN
*
SELE 1
USE NOVA
ZAP
*
PUBLIC DMONTHS
DMONTHS='JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC'
*
TOREAD='FORUM.DOS'
*
FHANDLE=FOPEN(TOREAD)
*
IF FHANDLE < 0
WAIT 'CANNOT OPEN INPUT FILE' WINDOW
RETURN
ENDIF
*
DO WHILE .NOT. FEOF(FHANDLE)
READTST=''
DO WHILE .NOT. ( AT('-',READTST,1)=29 .AND. AT('-',READTST,2)=33 )
READTST=FGETS(FHANDLE)
ENDDO
LFNAME=SUBSTR(READTST,1,17)
LDATE=DCON(SUBSTR(READTST,27,9))
IF SUBSTR(READTST,36,1)='(' .AND. SUBSTR(READTST,46,1)=')'
LSIZE=PADL(TRIM(SUBSTR(READTST,48,6)),6,' ')
ELSE
LSIZE=PADL(TRIM(SUBSTR(READTST,37,6)),6,' ')
ENDIF
LLIB=SUBSTR(READTST,61,LEN(READTST)-60)
*
READTST=FGETS(FHANDLE)
*
IF AT('[',READTST)=1
LPPN=TRIM(READTST)
ENDIF
*
READTST=FGETS(FHANDLE)
READTST=FGETS(FHANDLE)
LTITLE=SUBSTR(READTST,15,LEN(READTST)-14)
*
READTST=FGETS(FHANDLE)
LKEYWORDS=SUBSTR(READTST,15,LEN(READTST)-14)
READTST=FGETS(FHANDLE)
IF LEN(TRIM(READTST))>0
LKEYWORDS=LKEYWORDS+' '+SUBSTR(READTST,5,LEN(READTST)-4)
READTST=FGETS(FHANDLE)
ENDIF
READTST=FGETS(FHANDLE)
*
TEMPFILE=FCREATE('MEMO.TXT')
DO WHILE LEN(TRIM(READTST))>0
BYTES=FPUTS(TEMPFILE,ALLTRIM(READTST))
READTST=FGETS(FHANDLE)
ENDDO
FOK=FCLOSE(TEMPFILE)
FOK=FFLUSH(TEMPFILE)
*
SELE 1
APPE BLANK
REPLACE FNAME WITH LFNAME
REPLACE SIZE WITH LSIZE
REPLACE DATE WITH LDATE
REPLACE LIB WITH LLIB
REPLACE PPN WITH LPPN
REPLACE TITLE WITH LTITLE
REPLACE KEYWORDS WITH LKEYWORDS
*
APPEND MEMO DESCRIPT FROM MEMO.TXT OVERWRITE
*
*
ENDDO
*
CLOSE ALL
RETURN
*
FUNCTION DCON
*
PARAMETER TOCONV
*
DSTR=UPPER(SUBSTR(TOCONV,4,3))
MONUM=(AT(DSTR,DMONTHS)+2)/3
NEWDATE=CTOD(LTRIM(STR(MONUM))+'-'+SUBSTR(TOCONV,1,2)+SUBSTR(TOCONV,7,3))
*
RETURN NEWDATE